sync on
autocam off
color backdrop rgb(0,0,0)
load image "ground.jpg",1
make matrix 1,1000,1000,100,100
prepare matrix texture 1,1,1,1
position matrix 1,-500,0,-500
position camera 0,100,0
set ambient light 20
color ambient light rgb(64,64,128)
set point light 0,0,0,500
position light 0,0,100,0
color light 0,512,512,255
set light range 0,1000
make light 1
set spot light 1,45,90
color light 1,512,100,100
position light 1,0,50,400
set light range 1,500
result=make vector3(1)
set vector3 1, 0, 50, 200
position light 1, 1
set vector3 1, 0, 45, 0
rotate light 1,1
set vector3 to light position 1,1
set vector3 to light rotation 1,1
a#=y vector3(1)
result=delete vector3(1)
while inkey$()<>"x"
set cursor 0,0
print "LIGHT COMMANDS (X to Exit)"
set light to object orientation 1,1
set light to object position 1,1
a#=a#+1
if a#>359 then a#=a#-360
rotate light 1,0,a#,0
sync
endwhile
delete light 1
end
